﻿Module Functions
    Public Function SetBytes(Bytes) As String
        SetBytes = "0 Bytes"
        On Error GoTo Err

        If Bytes >= 1073741824 Then
            SetBytes = Format(Bytes / 1024 / 1024 / 1024, "#0.00") _
                 & " GB"
        ElseIf Bytes >= 1048576 Then
            SetBytes = Format(Bytes / 1024 / 1024, "#0.00") & " MB"
        ElseIf Bytes >= 1024 Then
            SetBytes = Format(Bytes / 1024, "#0.00") & " KB"
        ElseIf Bytes < 1024 Then
            SetBytes = Fix(Bytes) & " Bytes"
        End If

        Exit Function
Err:
        SetBytes = "0 Bytes"
    End Function


End Module
